home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d977.lha / UChess / UChessSrc.lha / gnuchess.h < prev    next >
C/C++ Source or Header  |  1994-03-28  |  25KB  |  880 lines
  1. /*#define LONGINTS 1*/
  2. #define NODITHER 1
  3. #define INTSIZE short
  4. /*#define LONGINTS2 1*/
  5. #ifdef LONGINTS
  6. #define INTSIZE2 long
  7. #else
  8. #define INTSIZE2 short
  9. #endif
  10.  
  11.  
  12. #ifdef _M68040
  13. #define VERSTRING "UChess v2.78L(040)"
  14. #define AVSTR "$VER: UChess 2.78L [040] (07.03.94)"
  15. #else
  16. #ifndef TINYCHESS
  17. #define VERSTRING "UChess v2.78(020)"
  18. #define AVSTR "$VER: UChess 2.78 [020] (07.03.94)"
  19. #else
  20. #define VERSTRING "UChess v2.78T(020)"
  21. #define AVSTR "$VER: UChess 2.78T [020] (07.03.94)"
  22. #endif
  23. #endif
  24.  
  25.  
  26. #define ARGSZ long
  27.  
  28. #define REG register
  29.  
  30. /* 
  31.    To fix it as a tool for pgm use, modify the routine
  32.    InputCommand() in dspcom.c and OutputMove() in nondsp.c 
  33.    modify main.c to setup screen, etc,
  34.    modify inline statement below,
  35.    Modify SelectLevel in nondsp.c so that it does not use scanf
  36.    in dspcom.c, ElapsedTime function is where you cut short
  37.    any thinking on human players time.  Around the FIONREAD
  38.    area, you need a loop for looking for the intuition events
  39.    and stop the thinking short if that happens
  40.  
  41.    Modify PromptForMove in nondsp.c, actaully may not be needed at all
  42.  
  43.    */
  44.  
  45. /*
  46.  * gnuchess.h - Header file for GNU CHESS
  47.  *
  48.  * Copyright (c) 1988,1989,1990 John Stanback
  49.  * Copyright (c) 1992 Free Software Foundation
  50.  *
  51.  * This file is part of GNU CHESS.
  52.  *
  53.  * GNU Chess is free software; you can redistribute it and/or modify
  54.  * it under the terms of the GNU General Public License as published by
  55.  * the Free Software Foundation; either version 2, or (at your option)
  56.  * any later version.
  57.  *
  58.  * GNU Chess is distributed in the hope that it will be useful,
  59.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  60.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  61.  * GNU General Public License for more details.
  62.  *
  63.  * You should have received a copy of the GNU General Public License
  64.  * along with GNU Chess; see the file COPYING.  If not, write to
  65.  * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  66.  */
  67.  
  68. /*
  69.  
  70.  On an Amiga 4000, Gnuchess 4.0 gets from  80,000(short), 100,000 (long)
  71.  nodes/sec on MoveList, and 3000(s)-3700(l) Nodes/sec on Eval Speed 
  72.  
  73.  On a SunStation (netcom), Gnuchess 4.0 gets from 100,000 to 133,300 nodes/sec on
  74.  MoveList, and 3700 Nodes/sec on Eval Speed 
  75.  
  76. */
  77.  
  78.  
  79. #if !defined(__STDC__) || !defined(MSDOS)
  80. #define const
  81. #endif
  82.  
  83. #ifndef __GNUC__
  84. #define inline __inline
  85. #endif
  86.  
  87. #include <stdio.h>
  88.  
  89. #ifdef AMIGA
  90. #undef printf
  91. #define printf NULLY
  92. #undef stdin
  93. #undef stdout
  94. #undef stderr
  95. #define stdin NULLYIN
  96. #define stdout NULLYOUT
  97. #define stderr NULLYERR
  98. #undef scanf
  99. #define scanf NULLYSCANF
  100. #endif
  101.  
  102. #define SEEK_SET 0
  103. #define SEEK_END 2
  104. #ifdef DEBUG
  105. void
  106. ShowDBLine (char *, INTSIZE int, INTSIZE int,
  107.         INTSIZE int, INTSIZE int, INTSIZE int,
  108.         INTSIZE unsigned int *);
  109.      extern FILE *debugfd;
  110.      extern INTSIZE int debuglevel;
  111.  
  112. #endif /* DEBUG */
  113.  
  114. #include <ctype.h>
  115.  
  116. #ifdef AMIGA
  117. #include <exec/types.h>
  118. #include <dos/dos.h>
  119. #endif
  120.  
  121.  
  122. extern long int GenCnt;
  123.  
  124. extern int GlobalTgtDepth;
  125. extern int TCadd;
  126. extern int mycnt3;
  127. extern int globalmessage_valid;
  128. extern struct IntuiMessage __aligned globalmessage;
  129. extern char __far HintString[80];
  130. extern char __far MateString[40];
  131. extern int AmigaStarted;
  132. extern int Mate;
  133. extern int DrawnGame;
  134.  
  135. void
  136.  TestSpeed (void (*f) (INTSIZE int side, INTSIZE int ply), unsigned j);
  137. void
  138.  TestPSpeed (INTSIZE int (*f) (INTSIZE int side), unsigned j);
  139.  
  140. void GetEditText(char *,int *);
  141. void CloseAmigaEditWindow(void);
  142. int OpenAmigaEditWindow(void);
  143.  
  144. unsigned int urand (void);
  145. void gsrand (unsigned int seed);
  146.  
  147. #ifdef AMIGA
  148. void __regargs MoveMem(void *,void *,ULONG);
  149. void __regargs MoveMem128(void *,void *);
  150. void __regargs ClearMem(void *,ULONG);
  151. #endif
  152. int myfgets(char *,int ,BPTR);
  153. int DoResign(void);
  154. void EnableMoveNow(void);
  155. void DisableMoveNow(void);
  156. void UpdateClocks (void);
  157. int LoadFullBitMap(void);
  158. void DoLegalMove(char *);
  159. void DisplayComputerMove(char *);
  160. void HandleEvent(APTR);
  161. void DoAbout(void);
  162. void LoadAGame(void);
  163. void SaveAGame(void);
  164. void ListAGame(void);
  165. void DoQuit(void);
  166. void Go2D(void);
  167. void Go3D(void);
  168. void DoReverse(void);
  169. void DoSwap(void);
  170. void DoAutoPlay(void);
  171. void MoveNow(void);
  172. void TakeBack(void);
  173. void DoThinking(void);
  174. void DoShwThnk(void);
  175. void DoSuper(void);
  176. void DoBookToggle(void);
  177. void DoHint(void);
  178. void DoTest(void);
  179. void SetTime(void);
  180. int GetFileName(char *);
  181.  
  182. void DisplayError(char *);
  183. void GetOperatorEntry(char *);
  184. void AmigaShutDown(void);
  185. void AnimateAmigaMove(char *,char);
  186. void GetTimeString(char *);
  187. void GiveHint(void);
  188. void EditBoard(void);
  189. void help(void);
  190. void ChangeAlphaWindow(void);
  191. void ChangeBetaWindow(void);
  192. void ChangeSearchDepth(void);
  193. void ChangeHashDepth(void);
  194. void SetContempt(void);
  195. void ChangeXwindow(void);
  196. void ShowPostnValues(void);
  197. void DoDebug(void);
  198. void DoTable(INTSIZE *);
  199.  
  200. void GetGame(void);
  201. void SaveGame(void);
  202. void DrawAmigaBoard(void);
  203. void skip(void);
  204. void skipb(void);
  205. void EnPassant (INTSIZE int xside, INTSIZE int f, INTSIZE int t, INTSIZE int iop);
  206.  
  207. void ataks(INTSIZE int, INTSIZE int *);
  208. void Initialize_dist(void);
  209. void InitConst(char *);
  210. int SetAmigaDepth(void);
  211.  
  212.  
  213. #ifdef MSDOS
  214. #include <stdlib.h>
  215. #include <string.h>
  216. #include <time.h>
  217. #define RWA_ACC "r+b"
  218. #define WA_ACC "w+b"
  219. #else
  220. #define RWA_ACC "r+"
  221. #define WA_ACC "w+"
  222. /*
  223. #include <sys/param.h>
  224. #include <sys/types.h>
  225. #include <sys/times.h>
  226. */
  227. #include <stdlib.h>
  228. #include <string.h>
  229. #include <time.h>
  230.  
  231. extern int FirstTime;
  232.  
  233. #endif /* MSDOS */
  234. #ifdef NONDSP
  235. #ifdef AMIGA
  236. #define printz NULLFUNC
  237. #define scanz NULLFUNC2
  238. #else
  239. #define printz printf
  240. #define scanz scanf
  241. #endif
  242. #else
  243. #include <curses.h>
  244. #define scanz fflush(stdout),scanw
  245. #define printz printw
  246. #endif
  247.  
  248. #if defined(__STDC__) || defined(MSDOS)
  249. /* <stdio.h> */
  250.      extern int fclose (FILE *);
  251. #ifndef __ultrix /* work around bug in c89 compiler --t.mann */
  252. #endif /*__ultrix*/
  253.  
  254. /* <stdlib.h> */
  255.  
  256. /* <time.h> */
  257.  
  258. /* <string.h> */
  259. #endif
  260.  
  261.  
  262. /* Piece values */
  263. #define valueP 100
  264. #define valueN 350
  265. #define valueB 355
  266. #define valueR 550
  267. #define valueQ 1100
  268. #define valueK 1200
  269. /* masks into upper 8 bits of ataks array */
  270. #define ctlP 0x4000
  271. #define ctlN 0x2800
  272. #define ctlB 0x1800
  273. #define ctlR 0x0400
  274. #define ctlQ 0x0200
  275. #define ctlK 0x0100
  276. #define ctlBQ 0x1200
  277. #define ctlBN 0x0800
  278. #define ctlRQ 0x0600
  279. #define ctlNN 0x2000
  280. /* attack functions */
  281. #define Patak(c, u) (atak[c][u] > ctlP)
  282. #define Anyatak(c, u) (atak[c][u] > 0)
  283. /* distance function */
  284. #define taxicab(a,b) taxidata[a][b]
  285. /* hashtable flags */
  286. #define truescore 0x0001
  287. #define lowerbound 0x0002
  288. #define upperbound 0x0004
  289. #define kingcastle 0x0008
  290. #define queencastle 0x0010
  291. #define evalflag 0x0020 /* from PL 61 */
  292. /* king positions */
  293. #define wking PieceList[white][0]
  294. #define bking PieceList[black][0]
  295. #define EnemyKing PieceList[c2][0]
  296. /* constants */
  297. /* castle moves */
  298. #define BLACKCASTLE    0x3C3E
  299. #define WHITECASTLE    0x0406
  300. #define LONGBLACKCASTLE    0x3C3A
  301. #define LONGWHITECASTLE    0x0402
  302. /* truth values */
  303. #define false 0
  304. #define true 1
  305. /* colors */
  306. #define white 0
  307. #define black 1
  308. #define neutral 2
  309. /* piece code defines */
  310. #define no_piece 0
  311. #define pawn 1
  312. #define knight 2
  313. #define bishop 3
  314. #define rook 4
  315. #define queen 5
  316. #define king 6
  317. #define bpawn 7
  318. /* node flags */
  319. #define pmask 0x0007
  320. #define promote 0x0008
  321. #define cstlmask 0x0010
  322. #define epmask 0x0020
  323. #define exact 0x0040
  324. #define pwnthrt 0x0080
  325. #define check 0x0100
  326. #define capture 0x0200
  327. #define draw 0x0400
  328. #define book 0x1000
  329. /* move symbols */
  330. #define pxx (CP[2])
  331. #define qxx (CP[1])
  332. #define rxx (CP[4])
  333. #define cxx (CP[3])
  334. /* for everything that can't use the above */
  335. #define Qxx " pnbrqk"
  336. #define Pxx " PNBRQK"
  337. #define Cxx "abcdefgh"
  338. #define Rxx "12345678"
  339. /***************************************************************************/
  340. /***************** Table limits ********************************************/
  341. /*
  342.  * ttblsz must be a power of 2. Setting ttblsz 0 removes the transposition
  343.  * tables.
  344.  */
  345. #ifdef MSDOS
  346. #define vttblsz (1 << 11)
  347. #else
  348. #ifdef _M68040
  349. #define vttblsz (200001) // was 1 << 17 in 2.35
  350. #else
  351. #ifndef TINYCHESS
  352. #define vttblsz (1 << 16)
  353. #else
  354. #define vttblsz (1 << 14)
  355. #endif
  356. #endif
  357. #define huge
  358. #endif /* MSODS */
  359.  
  360. #define ttblsz vttblsz
  361. #define TREE 1500        /* max number of tree entries */
  362. #define MAXDEPTH 35        /* max depth a search can be carried */
  363. #define MINDEPTH 2        /* min search depth =1 (no hint), >1 hint */
  364. #define MAXMOVES 400        /* max number of half moves in a game */
  365. #ifdef _M68040
  366. #define BOOKSIZE 30000        /* was 30k Number of unique position/move combinations allowed */
  367. #else
  368. #ifndef TINYCHESS
  369. #define BOOKSIZE 11200        /* was 30k Number of unique position/move combinations allowed */
  370. #else
  371. #define BOOKSIZE 5000        /* was 30k Number of unique position/move combinations allowed */
  372. #endif
  373. #endif
  374. #define CPSIZE 226        /* size of lang file max */
  375. #ifdef _M68040
  376. #define ETABLE (10001)        /* static eval cache was 2<<13 in uchess 2.35 */
  377. #else
  378. #ifndef TINYCHESS
  379. #define ETABLE (2<<11)        /* static eval cache */
  380. #else
  381. #define ETABLE (2<<9)        /* static eval cache */
  382. #endif
  383. #endif
  384. /***************** tuning paramaters **********************************************/
  385. #define MINGAMEIN 4
  386. #define MINMOVES 15
  387. #define FBEYOND 7
  388. #define SBEYOND 9
  389. #define TBEYOND 11
  390. #define CHKDEPTH 1        /* always look forward CHKDEPTH half-moves if in check */
  391. #define DEPTHBEYOND 11        /* Max to go beyond Sdepth */
  392. #define HASHDEPTH 3        /* depth above which to use HashFile */
  393. #define HASHMOVELIMIT 40    /* Use HashFile only for this many moves */
  394. #define PTVALUE 0            /* material value below which pawn threats at 5 & 3 are used */
  395. #define ZDEPTH 3        /* depth beyond which to check ZDELTA for extra time */
  396. #define ZDELTA 10        /* is 40 in 4pl68 score delta per ply to cause extra time to be given */
  397. #define QBLOCK true        /* if true cache quiescent positions */
  398. #define ZNODES 1000        /* check the time every ZNODES positions */
  399. /*#define MAXTCCOUNT 4        /* max number of time clicks per search */
  400. #define MAXTCCOUNTX  10        /* max number of time clicks per search to complete ply*/
  401. #define MAXTCCOUNTR 4        /* max number of time clicks per search extensions*/
  402. #define SCORESPLIM 8        /* Score space doesn't apply after this stage */
  403. /*#define MINSEARCHPCT 10        /* must have looked at MINSEARCHPCT moves on a ply on a timeout */
  404. /*#define SCORETIME -50        /* score below which to add search time */
  405. #define SCORESPLIM 8        /* Score space doesn't apply after this stage */
  406. #define SDEPTHLIM Sdepth+2 /* WAS Sdepth+1 in 2.35 of UChess */
  407. #define HISTORYLIM 4096        /* Max value of history killer */
  408. #define EWNDW 10        /* Eval window to force position scoring at depth greater than Sdepth + 2 */
  409. #define WAWNDW 90        /* alpha window when computer white*/
  410. #define WBWNDW 90        /* beta window when computer white*/
  411. #define BAWNDW 90        /* alpha window when computer black*/
  412. #define BBWNDW 90        /* beta window when computer black*/
  413. #define BXWNDW 90        /* window to force position scoring at lower */
  414. #define WXWNDW 90        /* window to force position scoring at lower */
  415. #define PCRASHS    5
  416. #define PCRASHV 5
  417. #define PCENTERS 5
  418. #define PCENTERV 5
  419. #define DITHER 5        /* max amount random can alter a pos value */
  420. #define BBONUS 2        /* points per stage value of B increases */
  421. #define RBONUS 6        /* points per stage value of R increases */
  422. #define KINGPOSLIMIT ( -1)    /* King positional scoring limit */
  423. #define KINGSAFETY  40 /* was 32 in PL60,  in PL61 it is 40 */
  424. #define MAXrehash (7)
  425. #define NULLMOVELIM 4000    /* below this total material on board don't use null move */
  426. #define DEPTHMARGIN 2
  427. #define THRSTAGE    6
  428. #define CHECKSTAGE  5
  429.  
  430. #if defined AG0
  431. #define WHITEAG0
  432. #define BLACKAG0
  433.  
  434. #elif defined AG1
  435. #define WHITEAG1
  436. #define BLACKAG1
  437.  
  438. #elif defined AG2
  439. #define WHITEAG2
  440. #define BLACKAG2
  441.  
  442. #elif defined AG3
  443. #define WHITEAG3
  444. #define BLACKAG3
  445.  
  446. #elif defined AGB
  447. #define WHITEAG2
  448. #define BLACKAG2
  449.  
  450. #elif defined AG4
  451. #define WHITEAG4
  452. #define BLACKAG4
  453. #endif
  454. /************************* parameters for Opening Book *********************************/
  455. #define BOOKBITS 10        /* # bits for hashtable to book moves */
  456. #define BOOKFAIL 20000        /* if no book move found for BOOKFAIL turns stop using book */
  457. #define BOOKRAND 1000        /* used to select an opening move from a list */
  458. #define BOOKENDPCT 950        /* 50 % chance a BOOKEND will stop the book */
  459. #define DONTUSE -32768        /* flag move as don't use */
  460. /*************************** Book access defines ****************************************/
  461. #define BKTBLSIZE (2<<BOOKBITS)
  462. #define BOOKMASK (BKTBLSIZE - 1)
  463. #define SIDEMASK 0x1
  464. #define BOOKEND 0x2        /* means this is the last move of an opening */
  465. #define BADMOVE 0x8000        /* means this is a bad move in this position */
  466. /****************************************************************************************/
  467.      struct hashval
  468.      {
  469.        unsigned long key, bd;
  470.      };
  471.  
  472. #ifdef CACHE
  473.     struct etable
  474.     { unsigned long ehashbd;
  475.         short int escore[2];
  476.         short int sscore[64];
  477.         short int score;
  478.         short int xx_pad;
  479.         short int hung[2];
  480.     } ;
  481.  
  482.  
  483.      struct hashentry
  484.      {
  485.        unsigned long hashbd;
  486.        unsigned short mv;
  487.        unsigned char flags, depth;    /* char saves some space */
  488.        unsigned short age;
  489.        short score;
  490. #ifdef HASHTEST
  491.        unsigned char bd[32];
  492. #endif /* HASHTEST */
  493.  
  494.      };
  495. #else
  496.      struct hashentry
  497.      {
  498.        unsigned long hashbd;
  499.        unsigned INTSIZE2 mv;
  500.        unsigned char flags, depth;    /* char saves some space */
  501.        INTSIZE2 score;
  502. #ifdef HASHTEST
  503.        unsigned char bd[32];
  504. #endif /* HASHTEST */
  505.  
  506.      };
  507. #endif
  508.  
  509. #ifdef HASHFILE
  510.  
  511. /*
  512.  * persistent transposition table. The size must be a power of 2. If you
  513.  * change the size, be sure to run gnuchess -c before anything else.
  514.  */
  515. #define frehash 6
  516. #ifdef MSDOS
  517. #define Deffilesz (1 << 11) -1
  518. #else
  519. #define Deffilesz (1 << 17) -1
  520. #endif /* MSDOS */
  521.      struct fileentry
  522.      {
  523.        unsigned char bd[32];
  524.        unsigned char f, t, flags, depth, sh, sl;
  525.      };
  526.  
  527. #endif /* HASHFILE */
  528.  
  529.  
  530.      struct leaf
  531.      {
  532.        INTSIZE f, t, score, reply, width;
  533.        unsigned INTSIZE flags;
  534.      };
  535.      struct GameRec
  536.      {
  537.        unsigned INTSIZE gmove;    /* this move */
  538.        INTSIZE score;        /* score after this move */
  539.        INTSIZE depth;        /* search depth this move */
  540.        INTSIZE time;        /* search time this move */
  541.        INTSIZE piece;        /* piece captured */
  542.        INTSIZE color;        /* color */
  543.        INTSIZE flags;        /* move flags capture, promote, castle */
  544.        INTSIZE Game50;        /* flag for repetition */
  545.        long nodes;        /* nodes searched for this move */
  546.        long hashkey, hashbd;    /* board key before this move */
  547.        short epssq;        /* epssquare before this move */
  548. #ifdef DEBUG40
  549.        int d1;
  550.        int d2;
  551.        int d3;
  552.        int d4;
  553.        int d5;
  554.        int d6;
  555.        int d7;
  556. #endif
  557.      };
  558.      struct TimeControlRec
  559.      {
  560.        INTSIZE moves[2];
  561.        long clock[2];
  562.      };
  563.  
  564.      struct flags
  565.      {
  566.        INTSIZE mate;        /* the game is over */
  567.        INTSIZE post;        /* show principle variation */
  568.        INTSIZE quit;        /* quit/exit */
  569.        INTSIZE regularstart;    /* did the game start from standard
  570.                  * initial board ? */
  571.        INTSIZE reverse;        /* reverse board display */
  572.        INTSIZE bothsides;        /* computer plays both sides */
  573.        INTSIZE hash;        /* enable/disable transposition table */
  574.        INTSIZE force;        /* enter moves */
  575.        INTSIZE easy;        /* disable thinking on opponents time */
  576.        INTSIZE beep;        /* enable/disable beep */
  577.        INTSIZE timeout;        /* time to make a move */
  578.        INTSIZE musttimeout;    /* time to make a move */
  579.        INTSIZE back;        /* time to make a move */
  580.        INTSIZE rcptr;        /* enable/disable recapture heuristics */
  581.        INTSIZE rv;        /* reverse video */
  582.        INTSIZE stars;        /* add stars to uxdsp screen */
  583.        INTSIZE coords;        /* add coords to visual screen */
  584.        INTSIZE shade;
  585.        INTSIZE material;        /* draw on lack of material */
  586.        INTSIZE illegal;        /* illegal position */
  587.        INTSIZE onemove;        /* timing is onemove */
  588.        INTSIZE gamein;        /* timing is gamein */
  589.        INTSIZE threat;            /* Enable threats, tom@izf.tno.nl */
  590.      };
  591.  
  592. #ifdef DEBUG
  593.      extern FILE *debugfile;
  594.  
  595. #endif /* DEBUG */
  596. #ifdef HISTORY
  597.      extern unsigned char __far history[32768];
  598. #endif
  599.      extern int Sdepth2;
  600.      extern int thinking2;
  601.      extern char *ColorStr[2];
  602.      extern unsigned INTSIZE int MV[MAXDEPTH];
  603.      extern int MSCORE;
  604.      extern int mycnt1, mycnt2;
  605.      extern INTSIZE int ahead;
  606.      extern INTSIZE int chesstool;
  607.      extern struct leaf __far Tree[];
  608.      extern struct leaf  *root/*, rootnode*/;
  609.      extern char __far savefile[];
  610.      extern char __far listfile[];
  611.      extern INTSIZE TrPnt[];
  612.      extern INTSIZE board[], color[];
  613.      extern INTSIZE PieceList[2][64], PawnCnt[2][8];
  614.      extern int Castled[2];
  615.      extern int MouseDropped;
  616.      extern int myEnPassant[2];
  617.      extern INTSIZE castld[], Mvboard[];
  618.      extern INTSIZE __aligned svalue[64];
  619.      extern struct flags flag;
  620.      extern INTSIZE opponent, computer, INCscore;
  621.      extern INTSIZE WAwindow, BAwindow, WBwindow, BBwindow;
  622.      extern INTSIZE dither, player;
  623.      extern INTSIZE xwndw, epsquare, contempt;
  624.      extern long ResponseTime, ExtraTime, MaxResponseTime, et, et0, time0, ft;
  625.      extern long reminus, replus;
  626.      extern long NodeCnt, ETnodes, EvalNodes, HashAdd, HashCnt, HashCol, THashCol,
  627.       FHashCnt, FHashAdd;
  628.      extern INTSIZE HashDepth, HashMoveLimit;
  629.      extern struct GameRec GameList[];
  630.      extern INTSIZE GameCnt, Game50;
  631.      extern INTSIZE Sdepth, MaxSearchDepth;
  632.      extern int Book;
  633.      extern struct TimeControlRec TimeControl;
  634.      extern INTSIZE TCflag, TCmoves, TCminutes, TCseconds, OperatorTime;
  635.      extern int timecomp[MINGAMEIN], timeopp[MINGAMEIN];
  636.      extern int compptr,oppptr;
  637.      extern INTSIZE XCmore, XCmoves[], XCminutes[], XCseconds[], XC;
  638.      extern const INTSIZE otherside[];
  639.      extern const INTSIZE Stboard[];
  640.      extern const INTSIZE Stcolor[];
  641.      extern unsigned INTSIZE hint;
  642.      extern INTSIZE int TOflag;
  643.      extern INTSIZE stage, stage2, Developed[];
  644.      extern INTSIZE ChkFlag[], CptrFlag[], PawnThreat[];
  645.      extern short ChkFlag[], CptrFlag[], PawnThreat[];
  646.      extern short QueenCheck[];  /* tom@izf.tno.nl */
  647. //     extern short NMoves[];  /* tom@izf.tno.nl */
  648.      extern short Threat[];  /* tom@izf.tno.nl */
  649.      extern short ThreatSave[];  /* tom@izf.tno.nl */
  650.      extern INTSIZE Pscore[], Tscore[];
  651.      extern INTSIZE rehash;
  652.      extern unsigned int ttblsize;
  653.      extern INTSIZE mtl[], pmtl[], hung[], emtl[];
  654.      extern INTSIZE Pindex[];
  655.      extern INTSIZE PieceCnt[];
  656.      extern INTSIZE FROMsquare, TOsquare;
  657.      extern INTSIZE HasKnight[], HasBishop[], HasRook[], HasQueen[];
  658.      extern const INTSIZE qrook[];
  659.      extern const INTSIZE krook[];
  660.      extern const INTSIZE kingP[];
  661.      extern const INTSIZE rank7[];
  662.      extern const INTSIZE sweep[];
  663.      extern const INTSIZE epmove1[], epmove2[];
  664.      extern unsigned INTSIZE killr0[], killr1[];
  665.      extern unsigned INTSIZE killr2[], killr3[];
  666.      extern unsigned INTSIZE PV, SwagHt, Swag0, Swag1, Swag2, Swag3, Swag4, sidebit;
  667. #ifdef KILLT
  668.      extern INTSIZE __far __aligned killt[0x4000];
  669. #endif
  670.      extern INTSIZE mtl[2], pmtl[2], hung[2];
  671.      extern const INTSIZE value[];
  672.      extern const INTSIZE control[];
  673.      extern unsigned char __far nextpos[8][64][64];
  674.      extern unsigned char __far nextdir[8][64][64];
  675.      extern const INTSIZE ptype[2][8];
  676.      extern long filesz;
  677.      extern FILE *hashfile;
  678.      extern unsigned int starttime;
  679.      extern int ThinkAheadWorked;
  680.      extern int ThinkInARow;
  681.      extern int ThinkAheadDepth;
  682. #ifdef LONGINTS2
  683.      extern INTSIZE __far distdata[64][64];
  684.      extern INTSIZE __far taxidata[64][64];
  685. #else
  686.      extern INTSIZE distdata[64][64];
  687.      extern INTSIZE taxidata[64][64];
  688. #endif
  689.      extern int bookcount;
  690.      extern unsigned long hashkey, hashbd;
  691. #ifdef LONGINTS2
  692.      extern struct hashval __far hashcode[2][7][64];
  693. #else
  694.      extern struct hashval hashcode[2][7][64];
  695. #endif
  696.      extern char __far *CP[];
  697. #ifdef QUIETBACKGROUND
  698.      extern INTSIZE background;
  699. #endif /* QUIETBACKGROUND */
  700.  
  701. #ifdef CACHE
  702.  
  703. #ifdef ttblsz
  704.      extern struct hashentry *ttable[2];
  705. #endif
  706.  
  707. #else
  708.  
  709. #ifdef ttblsz
  710.      extern struct hashentry __far ttable[2][vttblsz + MAXrehash];
  711. #endif
  712.  
  713. #endif
  714.  
  715. /*
  716.  * hashbd contains a 32 bit "signature" of the board position. hashkey
  717.  * contains a 16 bit code used to address the hash table. When a move is
  718.  * made, XOR'ing the hashcode of moved piece on the from and to squares with
  719.  * the hashbd and hashkey values keeps things current.
  720.  */
  721. #define UpdateHashbd(side, piece, f, t) \
  722. {\
  723.   if ((f) >= 0)\
  724.     {\
  725.       hashbd ^= hashcode[side][piece][f].bd;\
  726.       hashkey ^= hashcode[side][piece][f].key;\
  727.     }\
  728.   if ((t) >= 0)\
  729.     {\
  730.       hashbd ^= hashcode[side][piece][t].bd;\
  731.       hashkey ^= hashcode[side][piece][t].key;\
  732.     }\
  733. }
  734.  
  735.  
  736.      extern INTSIZE rpthash[2][256];
  737.      extern char *DRAW;
  738.  
  739. #define distance(a,b) distdata[a][b]
  740. #define row(a) ((a) >> 3)
  741. #define column(a) ((a) & 7)
  742. #define locn(a,b) (((a) << 3) | (b))
  743.  
  744. /* init external functions */
  745.      extern void NewGame (void);
  746.      extern int parse (FILE * fd, INTSIZE unsigned int *mv, INTSIZE int side, char *opening);
  747.      extern void GetOpenings (int);
  748.      extern int OpeningBook (unsigned INTSIZE int *hint, INTSIZE int side);
  749.      extern void SelectMove (INTSIZE int side, INTSIZE int iop);
  750.      int 
  751.       search (INTSIZE int side,
  752.            INTSIZE int ply,
  753.            INTSIZE int depth,
  754.            short ext,
  755.            INTSIZE int alpha,
  756.            INTSIZE int beta,
  757.            INTSIZE unsigned int *bstline,
  758.            INTSIZE int *rpt,
  759.                short SAVEHT,
  760.            int didnull);
  761. #if ttblsz
  762.      extern int
  763.       ProbeTTable (INTSIZE int side,
  764.             INTSIZE int depth,
  765.             INTSIZE int ply,
  766.             INTSIZE int *alpha,
  767.             INTSIZE int *beta,
  768.             INTSIZE int *score);
  769.      extern int
  770.       PutInTTable (INTSIZE int side,
  771.             INTSIZE int score,
  772.             INTSIZE int depth,
  773.             INTSIZE int ply,
  774.             INTSIZE int alpha,
  775.             INTSIZE int beta,
  776.             INTSIZE unsigned int mv);
  777.      extern void ZeroTTable (void);
  778.      extern void ZeroRPT (void);
  779.      extern void Initialize_ttable (void);
  780. #ifdef HASHFILE
  781.      extern unsigned int urand (void);
  782.      extern void srand (unsigned int);
  783.      extern int
  784.       ProbeFTable (INTSIZE int side,
  785.             INTSIZE int depth,
  786.             INTSIZE int ply,
  787.             INTSIZE int *alpha,
  788.             INTSIZE int *beta,
  789.             INTSIZE int *score);
  790.      extern void
  791.       PutInFTable (INTSIZE int side,
  792.             INTSIZE int score,
  793.             INTSIZE int depth,
  794.             INTSIZE int ply,
  795.             INTSIZE int alpha,
  796.             INTSIZE int beta,
  797.             INTSIZE unsigned int f,
  798.             INTSIZE unsigned int t);
  799.  
  800. #endif /* HASHFILE */
  801. #endif /* ttblsz */
  802.      extern void Initialize_moves (void);
  803.      extern void MoveList (INTSIZE int side, INTSIZE int ply);
  804.      extern void CaptureList (INTSIZE int side, INTSIZE int ply);
  805.      extern int castle (INTSIZE int side, INTSIZE int kf, INTSIZE int kt, INTSIZE int iop);
  806.      extern void
  807.       MakeMove (INTSIZE int side,
  808.          struct leaf * node,
  809.          INTSIZE int *tempb,
  810.          INTSIZE int *tempc,
  811.          INTSIZE int *tempsf,
  812.          INTSIZE int *tempst,
  813.          INTSIZE int *INCscore);
  814.      extern void
  815.       UnmakeMove (INTSIZE int side,
  816.            struct leaf * node,
  817.            INTSIZE int *tempb,
  818.            INTSIZE int *tempc,
  819.            INTSIZE int *tempsf,
  820.            INTSIZE int *tempst);
  821.      extern void InitializeStats (void);
  822. #ifdef OLD4PL67
  823.      extern int
  824.       evaluate (INTSIZE int side,
  825.          INTSIZE int ply,
  826.          INTSIZE int alpha,
  827.          INTSIZE int beta,
  828.          INTSIZE int INCscore,
  829.          /*INTSIZE int *slk,*/
  830.          INTSIZE int *InChk);
  831. #else
  832. int
  833. evaluate (register short side,
  834.       register short ply,
  835.       register short depth,
  836.           register short ext,
  837.       register short alpha,
  838.       register short beta,
  839.       short INCscore,
  840.       short *InChk);    /* output Check flag */
  841. #endif
  842.      extern INTSIZE int ScorePosition (INTSIZE int side);
  843.      extern void ExaminePosition (void);
  844.      extern void Initialize (void);
  845.      extern void InputCommand (char *);
  846.      extern void ExitChess (void);
  847.      extern void ClrScreen (void);
  848.      extern void SetTimeControl (void);
  849.      extern void SelectLevel (char *);
  850.      extern void
  851.       UpdateDisplay (INTSIZE int f,
  852.               INTSIZE int t,
  853.               INTSIZE int flag,
  854.               INTSIZE int iscastle);
  855.      extern void ElapsedTime (INTSIZE int iop);
  856.      extern void ShowSidetoMove (void);
  857.      extern void SearchStartStuff (INTSIZE int side);
  858.      extern void ShowDepth (char ch);
  859.      extern void TerminateSearch (int);
  860.      extern void
  861.       ShowResults (INTSIZE int score,
  862.             INTSIZE unsigned int *bstline,
  863.             char ch);
  864.      extern void PromptForMove (void);
  865.      extern void SetupBoard (void);
  866.      extern void algbr (INTSIZE int f, INTSIZE int t, INTSIZE int flag);
  867.      extern void OutputMove (char *);
  868.      extern void ShowCurrentMove (INTSIZE int pnt, INTSIZE int f, INTSIZE int t);
  869.      extern void ListGame (int);
  870.      extern void ShowMessage (char *s);
  871.      extern void ClrScreen (void);
  872.      extern void gotoXY (INTSIZE int x, INTSIZE int y);
  873.      extern void ClrEoln (void);
  874.      extern void DrawPiece (INTSIZE int sq);
  875.      extern void UpdateClocks (void);
  876.      extern void ShowLine (INTSIZE unsigned int *bstline,char *);
  877.      extern int pick (INTSIZE int p1, INTSIZE int p2);
  878.      extern int TrComp (struct leaf * a, struct leaf * b);
  879.      void UpdateWeights(void);
  880.